(make-coding-system): If ISO2022 based

8-bit coding system allows alternative designation, set the coding
category to `coding-category-iso-8-else'.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9929ddbcac9f60abe1546ca3060415d5ba539692..76792e6197d0fdb3528345d33d75d53295de61ab 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -584,7 +584,8 @@ a value of `safe-charsets' in PLIST."
                           (if no-alternative-designation
                               'coding-category-iso-7-tight
                             'coding-category-iso-7))
-                      (if no-initial-designation
+                      (if (or no-initial-designation
+                              (not no-alternative-designation))
                           'coding-category-iso-8-else
                         (if (and (charsetp g1-designation)
                                  (= (charset-dimension g1-designation) 2))